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Unclassified 


FOREWORD 


This  is  the  fifth  repo ’ft  in  the  Data  Reduction  Program  Documentation 
series.  It  is  dated  accordin  zo  the  date  of  completion  of  the  documentation.  No 
implication  is  made  that  this  program  will  not  subsequently  be  modified,  amended,  or 
superseded;  on  the  contrary,  the  history  of  radar  data  processing  is  one  of  continuous 
evolution  of  techniques,  and  it  is  unrealistic  to  assume  that  steady -state  has  been 
reached.  The  PA-229  series  is  being  published  for  the  convenience  of  interested 
parties,  and  Lincoln  assumes  no  responsibility  for  the  correctness  of  the  information 
presented,  nor  for  its  currency. 

The  preparation  of  reports  in  this  series  is  under  the  Editorship  of  Charles  R. 
Bemdtson  of  Lincoln,  and  of  D.  Nessman  and  R.  French  of  Philco-Ford  Corporation. 
Inquiries,  suggestions,  corrections,  criticisms,  and  requests  for  additional  copies 
should  be  directed  to  C.  R.  Bemdtson. 

The  principal  contributor  to  this  report  was  J  .  R.  Cornelius  (Philco-Ford). 
Due  to  the  intricate,  evolutionary  maimer  in  which  the  programs  came  into  being, 
the  editors  regret  that  it  is  in  general  impossible  to  give  due  credit  to  all — 
mathematicians  or  radar  analysts  or  programmers  --  who  contributed  to  the 
definition  and  writing  of  the  programs. 
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COMMON  SYMBOLS  AND  ABBREVIATIONS 


(The  units  given  for  certain  quantities  are  the  units  commonly  used  for  those 
quantities,  unless  otherwise  noted. ) 


ADT 

Alt 

APS 

ARS 

Avg 

Az 

CADJ 
C -band 

El 

EOF 

GMT 

h 

Hz 

in 

LC 

min 


ALCOR  Data  Tape 
Altitude  (km) 

Average  Pulse  Shape 
ALTAIR  Recording  System 
Average,  Averaging 
Azimuth  (deg) 

Adjusted  Calibration  Constant  (db) 

ALCOR  frequency,  5664  MHz  (NB)  and  5667  MHz  (WB) 

Elevation  (deg) 

End  of  File 

Greenwich  Mean  Time 

Hours 

Hertz 

Inches 

Left  Circular  Polarization 
Minutes 


NB 

NRTPOD 

POD 

Phase 

PRF 

PRI 

pps 

pts 


Narrow  Band 

Non -real  Time  Precision  Orbit  Determination  Program 

Project  PRESS  Operation  and  Data  Summary  Report 
Presented  in  deg 

Pulse  Repetition  Frequency  (pps) 

Pulse  Repetition  Interval  (s) 

Pulses  per  second 
Points 


R  Range  (km) 

R  Range  Rate  (km/s) 

rad  Radians 

RC  Right  Circular  Polarization 

RCS  Radar  Cross  Section  (dbsm) 


s  Seconds 

SDw  Standard  Deviation  of  Wake  Velocity 


v 


>  > 


T  Time 

TAL  Time  After  Launch  (s) 

UHF  ALT  AIR  Frequency;  415  MHz 

Velocity 

Doppler  Velocity 

V  Mean  Wake  Velocity 

w 

VHF  ALTAIR  Frequency;  155.5  MHz 

WB  Wide  Band 

Total  Off-axis  Angle  (deg) 

Wavelength 

Denotes  Multiplication 


e 

\ 

* 


FLOW  DIAGRAM  SYMBOLS 


« 


PROCESS,  ANNOTATION 


CD 


TERMINATOR 


SUBROUTINE:  where  NAME  is  the  entry 
call  into  the  subroutine 


CONNECTOR:  where  P  specifies  a  page  in  the 

flow  diagram,  and  L  designates 
a  statement  number  in  the  program 
listing  or  a  reference  point  in  the 
flow  diagram 

CONNECTOR:  where  X  implies  a  continuation 
of  the  diagram  to  the  next  page 


INPUT  /OUTPUT  OPERATION 


MAGNETIC  TAPE 


t 


PUNCHED  CARD 


ALT  10 


I. 


PURPOSE  AND  UTILIZATION 


Source  of  Data 


ALTAIR 


Data  Input 

ALTAIR  transcription  tape 


escription 

ALT10  is  used  primarily  to  produce  plots  of  peak  -R-G£  vs  TAL. 


The  program  also  produces  plots  of  ■RErS-'in  selected  range  gates  vs  Tn±,. 

A 


D. 


Output 


\ 


1. 

2. 


A  listing  of  pertinent  identification  data. 

Plots  vs  TAL  of  peak  RCS  and  of  RCS  in  selected  range 
gates. 


■  jl aJiaSL 


^  +  • 


I' 


II. 


DESCRIPTION 


ALT10  averages  the  RCS  data  in  each  range  gate  every  0.05  s,  and 
searches  the  gates  to  find  the  peak  RCS.  It  then  plots  peak  RCS  vs  TAL.  A  plot  of  the 
RCS  in  each  of  the  range  gates  is  also  produced. 

The  data  cards  are  not  checked  for  validity.  Subroutine  ALREAD^  makes 
a  number  of  checks  on  transcription  tape  parameters.  For  some  errors  (missing 
format  tables;  end  of  file;  target  no. ,  sampling  pattern,  or  polarization  not  on  tape) 
information  is  returned  to  main  program  for  decision  to  terminate. 
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III. 


OPERATION 


A.  Input 

Start  and  stop  times  (GMT) 

Specified  set  of  range  gates 

Target  and  sampling  pattern  numbers 

Polarization 

A  sample  input  is  shown  in  Appendix  A. 


CARD  1  (15A4) 

Col.  1-16 

Label  for  plots  and  listing 

Col.  17-60 

Additional  labels  for  listing 

CARD  2 

(213,  F7.3,  213, 

F7.3,  4X.4I5) 

Col.  1-  3 

IH1  (13)  I 

1 

Col.  4-  6 

IM1  (13)  j 

'  Start  time  (GMT)  in  h,  min,  and  s 

Col.  7-13 

ZSEC1  (F7.3)  ' 

Col.  14-16 

IH2  (13)  j 

Col.  17-19 

IM2  (13) 

>  Stop  time  (GMT)  in  h,  min,  and  s 

Col.  20-26 

ZSEC2  (F7.3)  ’ 

1 

Col.  31-35 

NRG 

Number  of  range  gates  (15) 

Col.  36-40 

INTARG 

Target  no.  (15) 

Col.  41-45 

I  PAT 

Sampling  pattern  in  which  initial  gate  is  located 

Col.  46-50 

IPOL 

Data  channel:  1  =  LC;  2  =  RC;  3  =  Az  error*; 

4  *  El  error*  (15) 

Col.  51-55 

ING" 

The  location  within  I PAT  of  initial  gate  (15) 

*VHF  transcriptions  only. 
"Called  ISTGAT  in  ALREAD. 
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m  m  Iff  m  ^ 


Output 

LISTING 

Title 

Target  no. ,  frequency,  and  polarization 
Start  and  stop  timto  (GMT  total  seconds) 
Identification  of  gate  being  plotted 
Identification  of  peak  gate  being  plotted 


PLOTS 

RCS  vs  TAL  (abscissa  is  4  s/in,  ordinate  is  +  40  to  -  60  dbsm  at 
20  db/in) 

Sample  outputs  are  given  in  Appendix  B. 


IV. 


PROGRAM  LIMITATIONS 


% 


< 


Start  time 
Stop  time 
NRG 
1NTARG 
Length  of  run 


Must  be  on  tape 
Must  be  on  tape 
<  120 

Must  be  on  tape 
<  300  s 


V. 


PROGRAMMING 


A.  ALT10  (see  Appendices  C  and  D). 


ALT10  is  the  control  section  of  ALT10.  ALT10  reads  the  input 
cards,  calls  ALREAD,  and  averages  the  data  returned.  ALT10  also  calls  the  plot 
routines,  and  prints  the  data. 

B.  ALREAD2 

ALREAD  is  the  Fortran  driver  for  the  machine  language  tape 

reading  routines. 

The  call  statement  is  ALREAD  (TSTART,  TSTOP,  TLIFT,  INTARG, 
INPAT,  IPOL,  NOPHA,  NPTS,  DFPG,  NEWPAS,  NRG,  ISTGAT). 


INPUT 


TSTART 

Start  time  of  processing  (GMT  total  seconds) 

TSTOP 

End  time  of  processing  (GMT  total  seconds) 

INTARG 

Target  number  to  be  processed 

INPAT* 

Sampling  pattern  in  which  initial  gate  is  located 

NRG 

Number  of  range  gates  to  be  processed 

ISTGAT** 

Location  within  JNPAT  of  initial  gate  wanted 

NOPHA 

1  (only  RCS  data  wanted) 

IPOL 

Data  channel:  1  =  LC;  2  =  RC;  3  =  Az  error, 

4  =  El  error 

INPUT  AND  OUTPUT  PARAMETERS 

NPTSt 

Output:  number  of  pulses  of  data  returned 

Input:  must  be  initialized  by  calling  program 

before  each  call  to  ALREAD 

NEWPAS1"1 

Cycle  and  error  pointer 

*Also  called  IPAT. 

**Also  called  ING  or  ISG. 

t  Set  to  zero  for  first  call.  Set  to  number  of  saved  points  for  subsequent  calls. 
1 1  Also  called  IAGAIN. 
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OUTPUT 


Lift-off  time  (GMT  total  seconds) 

Frequency  and  polarization  (e.g.  VHF  LC) 

STORED  IN  COMMON 
Pulse  times  (GMT  total  seconds) 

RCS  and  phase  for  each  pulse  and  gate 
R 

Alt 

Range  gate  array  associated  with  XSPHA 
Frequency  code:  1  =  VHF;  2  =  UHF 

C.  REW 

REW  is  an  entry  to  subroutine  BREADS3  used  to  rewind  the  tape, 

D.  PLOTEN 

PLOTEN  plots  RCS  vs  TAL  for  every  gat?:  and  for  the  peak  gate. 

E.  Plotting  System  Subroutines 

They  are  REREAD,  STOIDV,  and  PLTND. 


TLIFT 

DFPG 

TIMES 

XSPHA 

RANGKM 

ALSAV* 

IRGA 

NFPG 


*Valid  for  first  pulse  of  minor  cycle.  It  is  repeated  for  subsequent  pulses. 
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APPENDIX  A 
ALT  10  INPUT 


h  r>  i .  ir:“!  61. Tin  i”l  fir! 


CARD  1 


o ;  o  o  o  o  o  o  o  o ;  o  o  o 


I  2  ]  <  5  6  f  e  3 


0 1  0  0  0  „  0  0  0  0  0  (1 0  0  0  ;  0  0  0  0  0  0  0  0  0  0  0  0  9  0  0  0  0  0  0  0  0  1)  0  0  0  0  0  0  D  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  o  o  n  n  n  n  n  n  n 

1  1  1  '  1  1  '  1  '  '  '  '  I  '  '  1  I  I  I  I  M  1  I  I  I  I  *  I  I  I  I  1  I  I  I  I  I  I  I  I  I  I  c  I  I  I  1 c  I  I  I  I  c  I  1  1  |  1  1  |  |  I  ]  |  I  I  I  I  1  1  I  1  1  I  |  |  |  | 


22222222222c2222222222222222222222c222222222222222222222222222222222222222222222 
3333, 737 3,3333333  , 3 3 3 , 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

4444444444444444444444444444444444444q44444444444444444444444444444444444444444 

5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  q  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5 

6  6  6  6  6  G  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  ~  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  /  7  7  //  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  /  7  7  7  7  7  7  7  7 
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APPENDIX  B 
ALT10  OUTPUTS 

AITAIR  LINK  10  VFRSICN  HATE  0  OCTOPFR  lq2r 
FLP  1  J03  ALT10  GJOR 

TIM0  FFO^  3^4  18.0200  TO  34423.5000  TARGET  46  VHF-LC 

RANGE  GATE  1  IS  NOW  PLOTTING 

RANGE  GATF  2  IS  NOW  PLOTTING 


RANGE  GATF  12345  IS  NOW 


THE 

FE  AK 

IS 

IN 

GATF 

2 

FROM 

THE 

PE  AK 

I  S 

I  N 

GATE- 

1 

FROM 

THE 

P  E  AK 

IS 

IN 

GATE 

2 

FRCM 

THE 

PEAK 

IS 

IN 

GATE 

1 

FROM 

THE 

PEAK 

I  s 

l  N 

GATE 

2 

FRCM 

THE 

PEAK 

l  s 

IN 

GATE 

1 

FROM 

THE 

PEAK 

IS 

IN 

GATE 

2 

FRCM 

THE 

PEAK 

I  s 

I  N 

GATE 

1 

FRCM 

THE 

PEAK 

IS 

IN 

GATE 

2 

FROM 

THE 

PEAK 

IS 

I  N 

GATF 

1 

PROM 

THF 

PEAK 

I  s 

I  N 

GATE 

2 

FROM 

THE 

PEAK 

IS 

IN 

GATE 

1 

FROM 

THF 

PEAK 

IS 

I  N 

GATF 

2 

FRCM 

THE 

PEAK 

IS 

IN 

GATF 

1 

FROM 

THE 

PEAK 

IS 

IN 

GATE 

2 

FRCM 

THF 

PEAK 

I  s 

IN 

GATF 

1 

FRCM 

THF 

PEAK 

IS 

IN 

GATF 

2 

FRCM 

THF 

PEAK 

IS 

IN 

GATE 

1 

FROM 

THF 

PF  AK 

I  s 

I  N 

GATE 

2 

FRCM 

THE 

PEAK 

IS 

IN 

GATE 

1 

FROM 

THE 

PF  AK 

IS 

I  N 

GATE 

2 

FROM 

THE 

PEAK 

I  s 

I  N 

GATE 

1 

FROM 

THE 

PEAK 

IS 

TN 

GATE 

2 

FROM 

THF 

PEAK 

l  s 

I  N 

GATE 

1 

FRCM 

THE 

PEAK 

I  s 

I  N 

GATE 

2 

FROM 

THF 

PEAK 

IS 

IN 

GATE 

1 

FROM 

THE 

PE  AK 

I  s 

l  N 

GATE 

2 

FRCM 

THE 

P  F  AK 

IS 

IN 

GATE 

1 

FROM 

THE 

PEAK 

IS 

IN 

GATE 

2 

FRCM 

THE 

PEAK 

I  s 

I  N 

GATE 

1 

FRCM 

THE 

P  F  AK 

IS 

IN 

GATE 

7 

FROM 

THE 

PF  AK 

IS 

I  N 

GATE 

1 

FRCM 

THF 

PEAK 

I  s 

I  N 

GATE 

7 

FRCM 

THE 

PF  AK 

IS 

IN 

GATE 

1 

FROM 

THE 

PEAK 

IS 

I  N 

GATE 

2 

FRCM 

THF 

P,E  AK 

l  s 

IN 

GATE 

1 

FROM 

THE 

P  E  AK 

IS 

IN 

GATE 

2 

FROM 

1708. 71 10 

TO 

17 19.  21 10 

170<5 ,2610 

TP 

17^9. 2610 

1700. 31 10 

TP 

1  7C  9.  7610 

1709.8110 

TO 

1  709.  81  10 

1709.361  ) 

TC 

1711.6610 

1711.71  n 

TC 

1  71  1 . 71  1 

1711.7610 

TO 

1713. 0610 

1713.1110 

TC 

1  713.1  MO 

i7i3.2i  n 

TO 

1713.4110 

1713.461 ^ 

T^ 

1713. 4610 

1713.6110 

TP 

1714. 2610 

1714.31  10 

TP 

1714.  3610, 

1714.41  10 

TP 

1714. 81  10 

1714.8610 

TP 

1 714. 0610 

1715.0110 

TO 

1715.  o-l  10 

1715.0610 

TP 

1715. 261 o 

1715.71  10 

TP 

1 715.5610 

1715. 6110 

TO 

1715. 6610 

1715.7110 

TP 

1715.71 10 

1715.7  610 

TO 

1 715.8610 

1715.91  10 

TO 

1715.9610 

1716.0110 

TP 

1 716.0610 

1716. 1  1 10 

TP 

1716.  1110 

1716 .1610 

TP 

1716. 31  10 

1716.3610 

TP 

1 716. 4110 

1716.4610 

TO 

1716. 5610 

1716.61  10 

TP 

1716.66K' 

1716.7110 

1 1 

1716. 91 10 

1716.961 

TO 

1717.0610 

1717.111 

T  n 

1717.1110 

1717.  lfclr 

T  l 

3  717.1610 

1717.21 10 

TO 

1717.4610 

1717.51 10 

TP 

1717.67  K 

1717.7110 

TP 

1718.  3110 

1718  .3610 

TP 

1718.  •J6  K 

1718.4110 

TC 

1718.5610 

1718.6110 

TP 

1718. 6610 
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APPENDIX  C 

ALT10  PROGRAM  LISTING 


DIMENS ION  AVIS (120)  ,DFPG(2)  , IPGATE  (6000)  , PE AKIS (6000)  ,PL0TAG(15)  , 

1  SINK  (1  20)  ,TPLT  (6000)  ,  XSPLT(6000) 

DOUBLE  PRECISION  SEC, T1 ,T2tTIHES,TLIFT, TOTIM, TOUT, TPLT,TSAV, 

1 TSTA  RT  ,  TSTOP,  ZSEC1,ZSEC2< 

COMMON /RDCOMT/TINES (300)  ,XS(120,300) ,RANGE(300)  ,ALT(300)  ,IRGA(120) 
1 , NPPG 

EQUIVALENCE  (TPLT(1)  ,  XS  { 1  ,  1)  )  ,  ( XS  PLT  (  1)  ,  XS  ( 1,  1  5  1)  )  , 

1  (PEAKXS  (1)  ,XS  (1,201) )  ,  (IPGATE  (1)  ,  XS  (1,251)) 

DATA  AVXS/120*0.0/ 

DATA  TINC/0. 05/ 

TOTIM (IH,IM,SEC) =DFLOAT (60* (60*IH*IH) ) *SEC 
CALL  REREAD  (99 , 5 4 C' ) 

TSTOP=0. 0 
IAGAIN=0 

HEAD (5,40) PLOTAG 
40  FORM  AT  (  1  5A4) 

CALL  STOIDV (PLOT AG, 59,0) 

60  READ (5,80, END=90  0) IH 1 ,  IN  1 , ZSEC 1 , IH2  ,IM2, Z5EC2, NRG, INTAHC ,IPAT, IPOL 

1 , 1 NG 

80  FORMAT (2  (2I3.F7.3) ,4X,5I5) 

TSTART=TOTIM (IH1,IM1,ZSEC1) 

IF ((TSTART.GT. TSTOP) .AND. (I AGAIN . HE. 44) ) GO  TO  90 
CALL  HEN 
I AGA I  N=  1 

90  TS TO P= TOTIM  (IH2,IM2,ZSEC2) 

NPTS-0 
NDEC=0 
KOUNT=  0 
T 1=TST ART 
T2=T 1 *TINC 

100  CALL  ALREAD(TSTAHT,TSTOP,TLIFT,INTABG,IPAT, IPOL, 1,NPTS,DFPG,IAGAIN 

1 ,NRG,ING) 

IF (IAGAIN. EQ. 55) GO  TO  900 
IF (IAGAIN. EQ. 66) GO  TO  60 
IF  (NPTS.NE.O)  GO  TO  160 
120  IF(NHEC.NE.O) GO  TO  500 

tf  RITE (6,  140) IH1,IM1,ZSEC1 

140  FORMAT  ('1  AT  TIME  =  ' ,12, 13, F8. 4,  •  NO  VALID  POINTS  MERE  FOUND  -  R 
1UN  HAS  BEEN  ABORTED.') 

IAGAIN=49 
GO  TO  60 

160  DO  400  J=1 ,NPTS 

IF (T 1 .GT. TIMES (J) ) GO  TO  400 

KOUNT=KOUNT*1 

DO  200  1=1, NRG 

XSQM=  10.0**  (XS  (I,J)/10.0) 

A VXS  (I)  =  A V XS (I) +XSQM 
200  CONTINUE 

IF (T2 . GT. TINES ( J) ) GO  TO  400 
IF (KOUNT.LE.O) GO  TO  240 
COUNT=KOUNT 
DO  220  1=1, NRG 

A VXS (I) =10 . * A  LOG  1 0 (A VXS (I) /COUNT) 

IF (I. EQ. 1) GO  TO  210 

IF  (A VXS  (I)  .LE. PEAK)  GO  TO  220 
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210  IPGAT=IRGA(I) 

PEAK*AVXS (I) 

220  CONTINUE 

TOUX*T 1-TLIFT 

NRITE (4) TOOT, IPGAT, PEAK, (ATXS(I) ,1=1, NRG) 

NREC=N8EC*1 

IF  (NRj2C.GT.6000)  GO  TO  500 
240  00  260  I*  1  ,  NRG 

AVXS (I) *0. 0 
260  CONTINUE 
T1=T2 

T2=T1»TINC 
KOUNT®  0 

IF (T2 . GT. TSTOP) GO  TO  500 

IF(T2.LE.TINES(NPTS))G0  TO  *00 

IP (I AG AIN. EO. 0) GO  TO  120 

NPTS*NPTS-J 

DO  280  K  =  1 , NPTS 

JK=J»K 

TIRES  (K)  =TIfl£S  (JK) 

RANGE  (K)  GRANGE  (JR) 

ALT (K)  ®ALT  ( JK) 

DO  280  L= 1 , NRG 
XS (L,K)  ®X5  (L,  JK) 

260  CONTINUE  ^ 

GO  TO  100 
400  CONTINUE 

IF(IAGAIN.EO.O)  GO  TO  120 
NPTS®0 
GO  TO  100 
500  RENIND  4 

NRITE  (6,520) PLOTAG,TSTART#TSTOP,I»TABG, DPPG 
520  PORHAT  (•  1  V8Jt.**LT*Ii  LINK  10  XIBSION  DATE  9  OCTOBER 

1 15A4//2X,  '  TIRE  PROH  ^FIO.*,*  TO  •  , P10. 4, 61 , •  TARGET  •  ,13 
DO  700  1=1 ,NBG 
DO  660  J=1 ,NREC 
IF(I.NE.  1)  GO  TO  600 

READ(4)TPLT(J)  ,IPGATE(J)  .PBAKXS(J)  ,XSPIT(J) 

GO  TO  660 
6J0  K IN=  1 

KOUT*I-1 

READ(4)TPLT(J)  ,IPGATE(J)  ,PEAKXS(J)  ,  (SINK  (K)  ,R=KIN,KOOT)  , 
660  CONTINUE 
RERIND  4 

CALL  PLOTEN  (TPLT, XSPLT, N REC, DPPG ,IRGA  (I) ,IRTARG,PLOTAG) 
700  CONTINUE 
BOO  NDBG=1 2345 

CALL  PLOTEN  (TPLT, PEAKXSrRB*C, DPPG, BDRG, INTABG,PLOTAG) 
TSAV=TPLT  (1) 

ISGAT® IP GATE  ( 1 ) 

NQUT=0 

DO  840  I=2,NREC 

IP (IPG ATE  (I) . EQ. ISGAT) GO  TO  Z+d 
NRITE (6,820) ISGAT,TSAT, TPLT  (1-1) 

820  jr’ORR  AT  ('  THE  PEAR  IS  IN  GATE  ',13,'  PROH  •,P11.4,*  TO  •, 
ISGAT® IPGATE (I) 

T3AV=TPLT(I) 

NOUT  =  NCJUT*  1 
640  CONTINUE 

IF (NOUT.EO.O) NRITE (6,820)  ISGAT, TPLT (1)  , TPLT (NREC) 

IAGAIN®49 

GO  TO  60 

900  CALL  PLTND 
RETURN 
END 


1970*/2X, 

,2X,2A4//) 


XSPLT  (J) 


P11.4) 
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